home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / comm / cs_mac06.zip / CS-MAC.MAC < prev    next >
Text File  |  1992-08-23  |  14KB  |  300 lines
  1.  
  2.  ┌────────────────────────────────┐
  3.  │  Chuck Seyboldt's COMMO Macro  │   CS-MAC06:CS-MAC.MAC
  4.  └────────────────────────────────┘
  5.  
  6.   *  This version of CS-MAC contains radical changes from earlier
  7.   *  versions.  Most functions are split off into "smaller.mac"s.
  8.  
  9.   *  You will need to  *> !EDIT! <*  Three (3) of these .MAC files
  10.                           ^^^^^^
  11.  
  12. !1 < Contents:  COMMO.MAC       The Base Commo Macro file
  13. !2 <───┐        TABLE.MAC       Prompts for a variety of BBS and Mail doors
  14. !3 <───┤        LOGON.MAC       Generic Logon and Mailrun routines
  15.        │        ACTION.MAC      File fetchin' and sendin' routines
  16.        │        CS-MAC.MAC      This text plus a menu driver to add BBS's
  17.        │        ASSIGN.KEY      List of COMMO.MAC key assignments
  18.        ├─────────────┐
  19. ! *  In these 3 files,  you !NEED! to edit! lines
  20. ! *  that have a "!" in the first column.
  21.  
  22.   *  COMMO.FON links to COMMO.MAC    with a linked macro label.
  23.   *  COMMO.MAC links to TABLE.MAC    with the same macro label name.
  24.   *  TABLE.MAC links to LOGON.MAC    A generic logon occurs.  If the
  25.                                      macro label has an ACTION file
  26.                                      associated with it .....
  27.   *  LOGON.MAC links to ACTION.MAC   for file transfers.  After file
  28.                                      transfers are complete ....
  29.   *  ACTION.MAC returns to LOGON.MAC for a MAILRUN.  After logoff,
  30.   *  LOGON.MAC returns to COMMO.MAC  and dials the next marked entry.
  31.  
  32.   *  In pictures, the sequence looks something like this .......
  33.  
  34.  
  35. /-------------------------/           /----------------------------/
  36. | 1.    COMMO.FON         |           | 2.      COMMO.MAC          |
  37. |-------------------------|           |----------------------------|
  38. | BBS  {#}  {_pas} !{lnk} | ----|     | {:start}   set your name   |
  39. |                         |     |     | and other personal stuff   |
  40. /-------------------------/     |     | --------                   |
  41.                                 |     |    Central Commo Control   |
  42. /----------------------------/  |     | {:various} key assignments |
  43. | 3.      TABLE.MAC          |  |     | for manual terminal control|
  44. |----------------------------|  |     | --------                   |
  45. | {:m_ware} MAILware prompt  |  |---> |!{:lnk} {unmark .FON} option|
  46. |           table            |        |        {load TABLE.MAC,lnk}| --|
  47. | ---------                  |        |!{:add} {load TABLE.MAC,add}|   |
  48. | {:bbs_type} BBSware prompt |        |                            |   |
  49. |             table          |        /----------------------------/   |
  50. | ---------                  |                                         |
  51. |!{:lnk} {setv bbsid}        | <---------------------------------------|
  52. |        {setv door command} |
  53. |        {setv "m_ware"}     |
  54. |        {setv "bbs_type"}   |        /-----------------------------/
  55. |        {load LOGON.MAC,glr}| --|    | 4.       LOGON.MAC          |
  56. |!{:add} {setv 2nd BBS}      |   |    |-----------------------------|
  57. |        {load LOGON.MAC,glr}|   |    |!{:respond} set generic BBS  |
  58. |                            |   |    |            response strings |
  59. /----------------------------/   |    | --------                    |
  60.                                  |--> | {:glr} Generic Logon Routine|
  61. /----------------------------/        |        Using responses from |
  62. | 5.      ACTION.MAC         |        |        TABLE.MAC & LOGON.MAC|
  63. |----------------------------|        |                             |
  64. | {open and read ACTION}     | <----- | {ifex ACTION,load ACTION!}  |
  65. | {fetch and send files}     |        | {otherwise, goto :noact}    |
  66. |     --> By BBSID           |        |                             |
  67. | {load LOGON.MAC,noact}     | -----> | {:noact} BBSID empty?  If so|
  68. |                            |        |          return to COMMO.MAC|
  69. /----------------------------/        |                             |
  70.    (ACTION.MAC is optional)           | {:mailrun} Open maildoor    |
  71.                                       |            Send a .REP      |
  72.                                       |            Take a .QWK      |
  73.                                       |            Logoff BBS       |
  74.                                       |   {load COMMO.MAC,aln}      |
  75.                                       |    (Dial marked BBS's)      |
  76.                                       |                             |
  77.                                       /-----------------------------/
  78.  
  79.   *  Other names and definitions:
  80.  
  81.   *  %bbsid    The .QWK identifier (%bbsid empty skips attempt at mail)
  82.   *  %abbr     A two or three character convenience for file .ext's
  83.   *  %dorno    The string to send to the host to get to MAILware prompt
  84.   *  %proto    The mail transfer protocol to use.  Z, Y, X-CRC supported
  85.  
  86.   *  BBSware:  One of a variety of BBS software packages that is available.
  87.                This family of Commo macros supports;
  88.                -  PCBoard v14.5a    (Clark Development)
  89.                -  Spitfire
  90.                -  Wildcat!          (Mustang Software)
  91.                -  Remote Access
  92.                -  GAP
  93.                -  T.A.G.
  94.                -  MacroBBS          (Jeff Oberlee's BBS via Commo macros)
  95.  
  96.   *  MAILware: One of a family of mail doors
  97.                This family of Commo macros supports;
  98.                -  MarkMail 2
  99.                -  Qmail 2
  100.                -  Qmail 4
  101.                -  Jimmer
  102.                -  Jetmail
  103.                -  MKQwk
  104.                -  DCQwk
  105.                -  Rosemail
  106.                -  Silver Express
  107.  
  108. ────────────────────────────────────────────────────────────────────────────────
  109.  
  110. * *  Lines with a  "*"  may be deleted.
  111.   *  Deleting my comments is a good thing to do, it saves much RAM.
  112.  
  113.   *  You have exactly the same macro family that I use myself
  114.   *  Supported by COMMO v.5x: This macro is in use as of 08/25/92 to fetch
  115.   *  mail from a variety of sources.  The macro text has terse commentary.
  116.   *  You will need a file, RENQWK.BAT, in your COMMO home directory, to
  117.   *  rename .QWK packets to avert download crashes.
  118.   *  An example RENQWK.BAT is in the LOGON.MAC file ... ready to snip out.
  119.  
  120.   *  Many thanks to Fred Brucker for providing the intelligent, excellent
  121.   *  platform that supports this work.  COMMO is powerful and fun.
  122.  
  123.   * ASSUMPTIONS *
  124.  
  125.   *  Zmodem is assumed for most file transfers in these macros.
  126.   *  I assume you are using a registered copy of DSZ.
  127.   *  I assume that DSZ is located in your DOS path.
  128.  
  129.   * KEY ASSIGNMENTS *
  130.  
  131.   *  These macros contain many features that can be called without
  132.   *  being ONLINE or in a mailrun.  Review ASIGN.KEY for key assigments.
  133.  
  134.   * FEATURES *
  135.  
  136.   *     -  fast
  137.   *     -  runs unattended
  138.   *     -  one macro for many BBSs
  139.   *     -  one session may call several BBSs
  140.   *     -  works for MarkMail, Qmail, RoseMail, Jimmer, and JetMail
  141.   *        (all BBS and mail door prompts be set to EXPERT)
  142.   *     -  renames .QWK files  (RENQWK.BAT included in this file)
  143.   *     -  deletes .REP files  (via registered DSZ -u function)
  144.   *     -  checks message count from  MarkMail  doors.
  145.   *        Skips mail download if message count is less than 30.
  146.   *     >  ACTION PROCESSOR macro for file uploads and downloads.
  147.   *     -  Includes a macro that will prompt you for selections and
  148.   *        make the BBS specific "ACTION" lists based on your input.
  149.   *     -  Keeps a timestamped ACTION history file for each BBS.
  150.   *     -  Lean use of RAM by using multiple .MAC files instead of 1 big one.
  151.   *     -  Easily expands to new or changing BBSware and MAILware.
  152.  
  153.   *  Support  *
  154.  
  155.   *     -  I really enjoy sharing COMMO.  Your questions and advice
  156.   *        are welcome.  You may find me in U'NI's and Ilink's COMMO
  157.   *        conferences almost daily ... on RIME via Directory Assistance
  158.   *        occasionally ... or at NLBBS (1,207 761-4782).
  159.   *     -  No $ charge for this work.  It's full of room to improve.
  160.   *        I consider your comments to be ample payment.
  161.  
  162. ────────────────────────────────────────────────────────────────────────────────
  163.  
  164.  {:new_bbsid}  {sete-p0 new_bbsid}              ;Alt-M from COMMO.MAC
  165.  
  166.         {disp 3,30,12,   Welcome to  CS-MAC  }
  167.         {disp 4,30,12,   Welcome to  CS-MAC  }
  168.         {disp 5,30,12,   Welcome to  CS-MAC  }
  169.         {disp 6,30,12,   Welcome to  CS-MAC  }
  170.         {disp 7,30,12,   Welcome to  CS-MAC  }
  171.         {disp 8,30,12,   Welcome to  CS-MAC  }
  172.         {disp 9,30,12,   Welcome to  CS-MAC  }
  173.  
  174.         {inpu link,What is the linking ^(macro^) name?}
  175.         {inpu bbsid,What is the BBSID for that Board?}
  176.  
  177.         {disp 15,30,12,   pcb  =  PCBoard        }
  178.         {disp 16,30,12,   s-f  =  Spitfire       }
  179.         {disp 17,30,12,   wc!  =  Wildcat!       }
  180.         {disp 18,30,12,   gap  =  GAP            }
  181.         {disp 19,30,12,   rma  =  Remote Access  }
  182.         {disp 20,30,12,   tag  =  T.A.G.         }
  183.         {disp 21,30,12,   mac  =  MACRObbs       }
  184.  
  185.         {sete-p0 g_0}
  186. {:g_0}  {inpu bbsware,Choose BBSware for %bbsid from the list below}
  187.         {comp bbsware,pcb} {ifco g_1}
  188.         {comp bbsware,s-f} {ifco g_1}
  189.         {comp bbsware,wc!} {ifco g_1}
  190.         {comp bbsware,gap} {ifco g_1}
  191.         {comp bbsware,rma} {ifco g_1}
  192.         {comp bbsware,tag} {ifco g_1}
  193.         {comp bbsware,mac} {ifco g_1}
  194.         {goto g_0}
  195.  
  196. {:g_1}  {sete-p0 g_1}
  197.         {disp 15,30,12,   mm2  =  MarkMail 2     }
  198.         {disp 16,30,12,   qm2  =  Qmail 2        }
  199.         {disp 17,30,12,   qm4  =  Qmail 4        }
  200.         {disp 18,30,12,   jmr  =  Jimmer         }
  201.         {disp 19,30,12,   jet  =  JetMail        }
  202.         {disp 20,30,12,   ros  =  ROSEmail       }
  203.         {disp 21,30,12,   dcq  =  DCQwk          }
  204.         {disp 22,30,12,   mkq  =  MKQwk          }
  205.         {disp 23,30,12,   slx  =  Silver Express }
  206.  
  207.         {inpu mailware,Choose MAILware for %bbsid from the list below}
  208.         {comp mailware,mm2} {ifco g_2}
  209.         {comp mailware,qm2} {ifco g_2}
  210.         {comp mailware,qm4} {ifco g_2}
  211.         {comp mailware,jmr} {ifco g_2}
  212.         {comp mailware,jet} {ifco g_2}
  213.         {comp mailware,ros} {ifco g_2}
  214.         {comp mailware,dcq} {ifco g_2}
  215.         {comp mailware,mkq} {ifco g_2}
  216.         {comp mailware,slx} {ifco g_2}
  217.         {goto g_1}
  218.  
  219. {:g_2}  {sete-p0 g_2}
  220.         {disp 15,30,12,   Some examples of DOOR  }
  221.         {disp 16,30,12,   commands to help you:  }
  222.         {disp 17,30,12,                          }
  223.         {disp 18,30,12,       open markmail^|     }
  224.         {disp 19,30,12,                          }
  225.         {disp 20,30,12,       s^|~~~~~~~~~~f^|     }
  226.         {disp 21,30,12,                          }
  227.         {disp 22,30,12,       /Q^|                }
  228.         {disp 23,30,12,                          }
  229.  
  230.         {inpu dorno,Enter the BBS Command to enter the Maildoor}
  231.  
  232.         {sete-p0 new_bbsid}
  233.         {clea}
  234.         {subs abbr,1,2,%bbsid}
  235.  
  236.         {disp 2,30,19,                            }
  237.         {disp 3,30,19,                            }
  238.         {disp 4,30,19,                            }
  239.         {disp 5,30,19,                            }
  240.         {disp 6,30,19,                            }
  241.         {disp 7,30,19,                            }
  242.         {disp 8,30,19,                            }
  243.  
  244.         {disp 2,30,19,    LINK = %link}
  245.         {disp 3,30,19,    ABBR = %abbr}
  246.         {disp 4,30,19,    BBSID = %bbsid}
  247.         {disp 5,30,19,    BBSware = %bbsware}
  248.         {disp 6,30,19,    MAILware = %mailware}
  249.         {disp 7,30,19,    MAIL Command = %dorno}
  250.  
  251.         {setv ok}
  252.         {inpu ok,Enter YES to write info to COMMO.MAC and TABLE.MAC}
  253.         {comp ok,yes}   {ifco ,new_bbsid}
  254.  
  255.  
  256. *    ┌──────────────────────────────────────────────────┐
  257. *    │  Example of the line to be appended to COMMO.MAC │
  258. *    │                                                  │
  259. *    │  (:esk)                    (macl table.mac,esk)  │
  260. *    └──────────────────────────────────────────────────┘
  261.  
  262.         {wope-a %_hom%commo.mac}                ;add link to commo.mac
  263.         {setv line, ^(:%link^)                    ^(macl table.mac,%link^)}
  264.         {writ %line}
  265.         {wclo}
  266.  
  267. *    ┌──────────────────────────────────────────────────────────────┐
  268. *    │  Example of the lines to be appended to TABLE.MAC            │
  269. *    │                                                              │
  270. *    │  (:esk) (setv bbsid,ledge) (setv abbr,le) (setv dorno,mm20|) │
  271. *    │         (call mm2)                                           │
  272. *    │         (call pcb)                                           │
  273. *    └──────────────────────────────────────────────────────────────┘
  274.  
  275.         {wope-a %_hom%table.mac}                ;add link to table.mac
  276.         {setv line, ^(:%link^)  ^(setv bbsid,%bbsid^) ^(setv abbr,%abbr^)  ^(setv dorno,%dorno^)}
  277.         {writ %line}
  278.         {setv line,         ^(call %mailware^)}
  279.         {writ %line}
  280.         {setv line,         ^(call %bbsware^)}
  281.         {writ %line}
  282.         {writ}
  283.         {wclo}
  284.  
  285.         {setv line}
  286.         {setv ok}
  287.         {setv abbr}
  288.         {setv mailware}
  289.         {setv bbsware}
  290.         {clea}
  291.         {macl commo.mac}                        ;return control to COMMO.MAC
  292.  
  293.  
  294. * The short macro below uses an external editor to edit COMMO.MAC.
  295. * It is called from COMMO.MAC ... putting CS-MAC in Commo's memory while
  296. *      you are editing COMMO.MAC.
  297. * The revised COMMO.MAC is active after you close your editor.
  298.  
  299. {:ed_cmac}  {exec-n %ext_ed %_hom%commo.mac}  {macl commo.mac}
  300.